home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 May / EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso / programs / write / module / search.module < prev    next >
Text File  |  1996-09-26  |  388b  |  24 lines
  1. MODULE Search;
  2.  
  3. MENU $menu1;
  4.  
  5. ITEM $item1_1 "F"
  6.   IF GetFindReplace(_findString,"") THEN
  7.     IF _marked=2 THEN
  8.       Find([%MARKA,%MARKA],[%MARKB,%MARKB])
  9.     ELSE
  10.       Find(_cursor,[%EOT,%EOT])
  11.     END;
  12.   END;
  13. END;
  14.  
  15. ITEM $item1_2 "N"
  16.   IF _marked=2 THEN
  17.     Find([%MARKA,%MARKA],[%MARKB,%MARKB]){@FIRST=FALSE}
  18.   ELSE
  19.     Find(_cursor,[%EOT,%EOT]){@FIRST=FALSE}
  20.   END;
  21. END;
  22.  
  23. END Search.
  24.